home *** CD-ROM | disk | FTP | other *** search
/ Diccionario Visual Trilingue / VISUAL.iso / SHARED.DIR / 10103_Down de mots.ls < prev    next >
Encoding:
Text File  |  1997-07-04  |  1011 b   |  32 lines
  1. on mouseDown
  2.   global gCurrentPos, gNbItem
  3.   set inc to 0.0
  4.   repeat while the mouseDown
  5.     if rollOver(15) then
  6.       if the name of cast the castNum of sprite 15 starts "OF" then
  7.         set TempNum to the castNum of sprite 15 + 1
  8.         set the castNum of sprite 15 to TempNum
  9.       end if
  10.       set inc to inc + 0.075
  11.       if (getAt(gCurrentPos, 1) + integer(inc)) > (getAt(gNbItem, 1) - 6) then
  12.         setAt(gCurrentPos, 1, getAt(gNbItem, 1) - 6)
  13.       else
  14.         setAt(gCurrentPos, 1, getAt(gCurrentPos, 1) + integer(inc))
  15.       end if
  16.       SetWindow2(1, 10)
  17.       next repeat
  18.     end if
  19.     if the name of cast the castNum of sprite 15 starts "ON" then
  20.       set TempNum to the castNum of sprite 15 - 1
  21.       set the castNum of sprite 15 to TempNum
  22.       updateStage()
  23.     end if
  24.   end repeat
  25.   if the name of cast the castNum of sprite 15 starts "ON" then
  26.     set TempNum to the castNum of sprite 15 - 1
  27.     set the castNum of sprite 15 to TempNum
  28.     updateStage()
  29.   end if
  30.   ActiveField(1)
  31. end
  32.